mail.altrad.com/2015.02.mail.altrad.com.tar/mail.altrad.com/TEST/office deutch/INFOPATH.NL-NL/INFLR.CAB/FL_DefineAnExceptionClass_snippet_142664_ENU____.3643236F_FC70_11D3_A536_0090278A1BB8

Extensible Markup Language | 2005-10-28 | 2KB | 48 lines

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Define An Exception Class</Title>
      <Author>Microsoft Corporation</Author>
      <Description>Provides a basic implementation for a new exception class.</Description>
      <Keywords>
          <Keyword>Exception</Keyword>
          <Keyword>Error</Keyword>
          <Keyword>Handling</Keyword>
      </Keywords>
      <Shortcut>Except</Shortcut>
    </Header>
    <Snippet>
      <Imports>
        <Import>
          <Namespace>System</Namespace>
        </Import>
      </Imports>
      <Declarations>
        <Literal>
          <ID>exceptionName</ID>
          <ToolTip>Rename class to description of exception.</ToolTip>
          <Default>ProblemException</Default>
        </Literal>
      </Declarations>
      <Code Language="VB" Kind="type decl"><![CDATA[<Serializable()>  _
Public Class $ExceptionName$
    Inherits ApplicationException

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

    Public Sub New(ByVal message As String, ByVal inner As Exception)
        MyBase.New(message, inner)
    End Sub

    Public Sub New( _
        ByVal info As System.Runtime.Serialization.SerializationInfo, _
        ByVal context As System.Runtime.Serialization.StreamingContext)
        MyBase.New(info, context)
    End Sub
End Class]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>